home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / self repli.ml (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.2 KB  |  32 lines
  1. 1 gosub60000
  2. 2 print"[147]"tab(13)"press [158]q to quit"
  3. 5 printtab(11)"any other key causes                  replication of the image."
  4. 7 getr$:ifr$="q"thenload"hello connect",8
  5. 8 ifr$="" then7
  6. 10 m=9216 : nd = 256*peek(46)+peek(45)
  7. 15 sys nd-243 : sys nd-218
  8. 20 poke m+418,1: poke m+458,1: poke m+498,1: poke m+459,1: poke m+461,1
  9. 23 fort=1to3:pokem+418+int(rnd(1)*480),1:next
  10. 25 sys nd-193
  11. 30 get r$:ifr$=""then30
  12. 32 ifr$<>"q"then35
  13. 33 run 2
  14. 35 sys nd-157
  15. 40 goto 30
  16. 60000 nm$="[210]oger [205]acomber":pr$="[211]elf-[210]eplication"
  17. 60005 deffncn(n)=int(19-n/2)
  18. 60010 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  19. 60015 printspc(7)""t$:printspc(7)"                         [146]"
  20. 60020 printtab(fncn(len(pr$)))"[145]"pr$
  21. 60025 printspc(7)""t$:print:printtab(18)"by"
  22. 60030 print:printspc(fncn(len(nm$)))"[158]"nm$""
  23. 60035 printspc(12)"[195]opyright 1986"
  24. 60037 print"       [159] [195]ommodore [208]ublications"
  25. 60040 print"     [158][204][207][193][196][211][212][193][210] is not public domain."
  26. 60045 print:print"  [208]lease respect the author's rights."
  27. 60050 print:print"      [208]ress space bar to continue."
  28. 60055 forcc=1to48:getk$:ifk$=" "then60070
  29. 60060 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  30. 60065 next:goto60050
  31. 60070 printc$chr$(142):return
  32.